home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / ExitZoo.Dxr / 00011.ls < prev    next >
Encoding:
Text File  |  1997-11-21  |  364 b   |  16 lines
  1. on Talk soundFile
  2.   put soundFile
  3.   puppetSound(soundFile)
  4.   updateStage()
  5.   repeat while soundBusy(1)
  6.     set temp to random(4)
  7.     set Head to the number of cast ("mouth" & temp)
  8.     set the castNum of sprite 10 to Head
  9.     updateStage()
  10.     wait(6)
  11.   end repeat
  12.   puppetSound(0)
  13.   set the castNum of sprite 10 to the number of cast "mouth1"
  14.   updateStage()
  15. end
  16.